home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Data Exchange ƒ / test.p < prev   
Encoding:
Text File  |  1989-01-19  |  512 b   |  39 lines  |  [TEXT/MPS ]
  1. UNIT Test;
  2.  
  3. INTERFACE
  4.  
  5. VAR
  6.    a,
  7.     b,
  8.     c
  9.        :integer;
  10.         
  11. PROCEDURE Initialize (value:integer);
  12. (*
  13.    Set the public variable <c> to <value>.
  14. *)
  15. FUNCTION GetVal:integer;
  16. (*
  17.    Return the current value of <c>.
  18. *)
  19.  
  20. IMPLEMENTATION
  21.  
  22. PROCEDURE Initialize; 
  23. (*
  24.    Set the public variable <c> to <value>.
  25. *)
  26. BEGIN
  27.    c := value;
  28. END;
  29.  
  30. FUNCTION GetVal; 
  31. (*
  32.    Return the current value of <c>.
  33. *)
  34. BEGIN
  35.    GetVal := c;
  36. END;
  37.  
  38. END.older 'Source' contains the source code and all auxilliary files
  39. mentioned in the article.  T